object AudoFrm: TAudoFrm Left = 219 Top = 150 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Audio Recorder' ClientHeight = 137 ClientWidth = 353 Color = clSilver Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Menu = MainMenu1 Position = poScreenCenter ShowHint = True OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object wave: TPaintBox Left = 8 Top = 4 Width = 338 Height = 65 Color = clWhite Font.Color = clGreen Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False OnPaint = wavePaint end object Bevel1: TBevel Left = 7 Top = 3 Width = 340 Height = 67 end object PlayBut: TSpeedButton Left = 8 Top = 80 Width = 25 Height = 25 Hint = 'Play' Enabled = False Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000 00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333 70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333 70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033 70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333 70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333 70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000 00E33777777777777733EEEEEEEEEEEEEEE33333333333333333} NumGlyphs = 2 OnClick = PlayButClick end object RecordBut: TSpeedButton Left = 32 Top = 80 Width = 25 Height = 25 Hint = 'Record' Enabled = False Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000 00E338888888888888F3E0F88888888880E338F33333333338F3E0F333333333 80E338F33333333338F3E0F33333333380E338F3333FFF3338F3E0F338999833 80E338F333888FF338F3E0F33999993380E338F3388888F338F3E0F339999933 80E338F3388888F338F3E0F33999993380E338F33888883338F3E0F338999833 80E338F33388833338F3E0F33333333380E338F33333333338F3E0F333333333 80E338F33333333338F3E0FFFFFFFFFFF0E338FFFFFFFFFFF8F3E00000000000 00E33888888888888833EEEEEEEEEEEEEEE33333333333333333} NumGlyphs = 2 OnClick = RecordButClick end object StopBut: TSpeedButton Left = 56 Top = 80 Width = 25 Height = 25 Hint = 'Stop' Enabled = False Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000 00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333 70E337F33333333337F3E0F33333333370E337F333FFFFF337F3E0F330000033 70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033 70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033 70E337F33777773337F3E0F33333333370E337F33333333337F3E0F333333333 70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000 00E33777777777777733EEEEEEEEEEEEEEE33333333333333333} NumGlyphs = 2 OnClick = StopButClick end object SpeedButton1: TSpeedButton Left = 320 Top = 80 Width = 25 Height = 25 Hint = 'Discard Current Recording' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFF000000000 FFFFFFF8888888887FFFFFF0F8888880FFFFFFF8F7F7F7F87FFFFFF0F0707080 FFFFFFF8F8F8F8F87FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF0F0707080 FFFFFFF8F8F8F8F87FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF0F0707080 FFFFFF78F8F8F8F87F7FF0F0F0708080F0FFF878F8F8F8F878FFFF00F0707080 0FFFFF88F8F8F8F88FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF080808080 FFFFFFF8F8F8F8F877FFFF00000000000FFFFF888888888887FFFF0F77788888 0FFFFF8FFFFFFFFF87FFFF00000000000FFFFF88888888888FFFFFFFF08880FF FFFFFFFFF8FFF87FFFFFFFFFF00000FFFFFFFFFFF88888FFFFFF} NumGlyphs = 2 OnClick = New1Click end object StatusBar1: TStatusBar Left = 0 Top = 118 Width = 353 Height = 19 Panels = < item Width = 200 end item Width = 50 end> SimplePanel = False SizeGrip = False end object WaveIn: TEnhWaveIn samples = 11025 MaxBuffers = 3 OnData = WaveInData Left = 168 Top = 31 end object WaveOut: TEnhWaveOut samples = 11025 OnDone = WaveOutDone Left = 136 Top = 31 end object MainMenu1: TMainMenu Left = 72 Top = 32 object File1: TMenuItem Caption = '&File' ShortCut = 0 object New1: TMenuItem Caption = '&Discard' ShortCut = 0 OnClick = New1Click end object Load1: TMenuItem Caption = '&Load' ShortCut = 0 OnClick = Load1Click end object SaveAs1: TMenuItem Caption = '&Save As...' ShortCut = 0 OnClick = SaveAs1Click end object N1: TMenuItem Caption = '-' ShortCut = 0 end object Exit1: TMenuItem Caption = 'E&xit' ShortCut = 0 end end object Options1: TMenuItem Caption = '&Options' ShortCut = 0 Visible = False object Samples1: TMenuItem Caption = 'Samples &Bits' ShortCut = 0 object N81: TMenuItem Caption = '&8' Checked = True ShortCut = 0 OnClick = N81Click end object N161: TMenuItem Caption = '&16' ShortCut = 0 OnClick = N161Click end end object SampleSize1: TMenuItem Caption = '&Sample Size' ShortCut = 0 object N80001: TMenuItem Caption = '&8000' ShortCut = 0 OnClick = N80001Click end object N110251: TMenuItem Caption = '&11025' Checked = True ShortCut = 0 OnClick = N110251Click end object N220501: TMenuItem Caption = '&22050' ShortCut = 0 OnClick = N220501Click end object N441001: TMenuItem Caption = '&44100' ShortCut = 0 OnClick = N441001Click end end object Mono1: TMenuItem Caption = '&Mono' Checked = True ShortCut = 0 OnClick = Mono1Click end end object Help1: TMenuItem Caption = '&Help' ShortCut = 0 object SoundRecorder1: TMenuItem Caption = '&Sound Recorder' ShortCut = 0 OnClick = SoundRecorder1Click end end end object OpenDialog1: TOpenDialog FileEditStyle = fsEdit Filter = 'All CSF Files|*.csf|All Files|*.*' Options = [ofHideReadOnly] Title = 'Open MSF File' Left = 40 Top = 32 end object SaveDialog1: TSaveDialog DefaultExt = 'csf' FileEditStyle = fsEdit Filter = 'CSF File|*.csf|All Files|*.*' Options = [ofOverwritePrompt, ofPathMustExist, ofNoLongNames] Title = 'Save Sound File' Left = 104 Top = 32 end object ZipMaster1: TZipMaster Verbose = False Trace = False AddCompLevel = 9 AddOptions = [] ExtrOptions = [] Left = 200 Top = 32 end end